home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / blit.arc / SEIRPC.C < prev    next >
Encoding:
Text File  |  1985-06-10  |  1.1 KB  |  45 lines
  1. /*
  2.  * NAME:         C
  3.  *
  4.  * DESCRIPTION: RECURSIVE PROCEDURE USED TO DRAW SIERPINSKI CURVES.
  5.  *
  6.  * SYNOPSIS:     C (I, H, OLD, CUR)
  7.  *              INT      I;
  8.  *              INT      H;
  9.  *              STRUCT POINT    *CUR;
  10.  *              STRUCT POINT    *OLD;
  11.  *
  12.  * GLOBALS:      NONE.
  13.  *
  14.  * CALLS:        C        (SIERPINSKI.C)
  15.  *              DO_PLOT   (SIERPINSKI.C)
  16.  *              D         (SIERPINSKI.C)
  17.  *              B         (SIERPINSKI.C)
  18.  *
  19.  * CALLED BY:    SIERPINSKI  (SIERPINSKI.C)
  20.  *              B            (SIERPINSKI.C)
  21.  *              C            (SIERPINSKI.C)
  22.  *              D            (SIERPINSKI.C)
  23.  */
  24. C (I, H, OLD, CUR)
  25. INT    I;
  26. INT    H;
  27. STRUCT POINT  *CUR;
  28. STRUCT POINT  *OLD;
  29. {
  30.    IF (I > 0) {
  31.         C (I - 1, H, CUR, OLD);
  32.        OLD -> X -= H;
  33.        OLD -> Y += H;
  34.        DO_PLOT (CUR, OLD);
  35.         D (I - 1, H, CUR, OLD);
  36.        OLD -> X -= 2 * H;
  37.        DO_PLOT (CUR, OLD);
  38.         B (I - 1, H, CUR, OLD);
  39.        OLD -> X -= H;
  40.        OLD -> Y -= H;
  41.        DO_PLOT (CUR, OLD);
  42.         C (I - 1, H, CUR, OLD);
  43.    }
  44. }
  45.